home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Virus_01_1995_Virus-Crew.d64 / .bonus!.exe.. (.txt) next >
Commodore BASIC  |  2023-02-26  |  997b  |  37 lines
  1. 1 fora=49152to49190:readx:pokea,x:next
  2. 2 data 162,11,160,192,142,20,3,140
  3. 3 data 21,3,96,238,3,208,173,3
  4. 4 data 208,201,228,240,7,201,50,240
  5. 5 data 3,76,49,234,173,11,192,73
  6. 6 data 32,141,11,192,76,49,234
  7. 10 printchr$(147);:poke53280,0:poke53281,0
  8. 20 poke53269,3
  9. 30 poke53287,1:poke53288,2
  10. 40 poke2040,128:poke2041,129
  11. 50 poke53248,24:poke53249,150
  12. 60 poke53250,255:poke53251,150
  13. 70 fori=0to127:readx:poke8192+i,x:next
  14. 80 data 0,0,0,0,0,0,0,0
  15. 81 data 0,0,8,0,0,12,0,128
  16. 82 data 14,0,192,15,0,224,15,240
  17. 83 data 255,255,254,255,255,255,255,255
  18. 84 data 254,224,15,240,192,15,0,128
  19. 85 data 14,0,0,12,0,0,8,0
  20. 86 data 0,0,0,0,0,0,0,0
  21. 87 data 0,0,0,0,0,0,0,189
  22. 90 data 3,16,0,3,184,32,3,252
  23. 91 data 96,3,254,224,3,255,160,3
  24. 92 data 255,0,3,254,0,3,254,0
  25. 93 data 3,254,0,3,254,0,3,254
  26. 94 data 0,3,254,0,3,254,0,3
  27. 95 data 254,0,3,254,0,3,254,0
  28. 96 data 3,254,160,3,254,224,3,252
  29. 97 data 96,0,184,32,3,16,0,189
  30. 100 sys49152:tr=0:og=0
  31. 110 print"pkt:"tr"/"og:geta$:ifa$<>" "then110
  32. 120 px=24:og=og+1
  33. 130 poke53248,px:a=peek(53278)
  34. 140 ifpeek(53278)=3thentr=tr+1:poke53248,24:goto110
  35. 150 px=px+2:ifpx>255thenpoke53248,24:goto110
  36. 160 goto130
  37.